home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 330
- Top = 185
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'We-Blocker Updater'
- ClientHeight = 177
- ClientWidth = 352
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- Position = poDesktopCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 29
- Top = 52
- Width = 83
- Height = 16
- Alignment = taRightJustify
- Caption = 'Updating File:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object FilesUpdatingLabel: TLabel
- Left = 120
- Top = 52
- Width = 16
- Height = 16
- Caption = 'XX'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 36
- Top = 76
- Width = 76
- Height = 16
- Alignment = taRightJustify
- Caption = 'Update Day:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object FileNameLabel: TLabel
- Left = 120
- Top = 76
- Width = 16
- Height = 16
- Caption = 'XX'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object StatusLabel: TLabel
- Left = 55
- Top = 12
- Width = 234
- Height = 32
- Alignment = taCenter
- AutoSize = False
- Caption = 'Please DO NOT turn off the machine or disturb while Updating'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object ProgressBar1: TProgressBar
- Left = 30
- Top = 100
- Width = 295
- Height = 17
- Min = 0
- Max = 100
- Smooth = True
- TabOrder = 0
- end
- object Button1: TButton
- Left = 240
- Top = 132
- Width = 85
- Height = 31
- Caption = 'Cancel'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Timer1: TTimer
- Interval = 5000
- OnTimer = Timer1Timer
- Left = 6
- Top = 16
- end
- object URLS1DB: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- IndexFiles.Strings = (
- 'URLS1.CDX')
- IndexName = 'SITE'
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 180
- Top = 42
- end
- object URLS2DB: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- IndexFiles.Strings = (
- 'URLS2.CDX')
- IndexName = 'SITE'
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 210
- Top = 42
- end
- object URLS3DB: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- IndexFiles.Strings = (
- 'URLS3.CDX')
- IndexName = 'SITE'
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 240
- Top = 42
- end
- object URLS4db: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- IndexFiles.Strings = (
- 'URLS4.CDX')
- IndexName = 'SITE'
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 270
- Top = 42
- end
- object IMPORTDB: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 300
- Top = 42
- end
- object ftp1: TFtpClient
- Timeout = 15
- MultiThreaded = False
- Port = 'ftp'
- DisplayFileFlag = False
- Binary = True
- ShareMode = ftpShareExclusive
- Options = [ftpAcceptLF]
- Left = 222
- Top = 72
- end
- object Backup1: TBackupFile
- Version = '5.10'
- BackupMode = bmAll
- CompressionLevel = clMax
- RestoreMode = rmAll
- MaxSize = 0
- SetArchiveFlag = False
- RestoreFullPath = False
- SaveFileID = False
- Left = 288
- Top = 72
- end
- object AppInfo: TzShowApp
- OnlyOneInstance = True
- CPUType = 5
- CPUString = 'AMD K5/K6'
- CPUVendor = 'AuthenticAMD'
- CPUMMX = True
- CPUStepping = 0
- CPUModel = 8
- CPUSpeed = 299
- UseCmdShow = False
- ShowOnStatusBar = False
- ShowMainForm = False
- ShowHint = True
- OnAskEndSession = AppInfoAskEndSession
- Left = 6
- Top = 126
- end
- object configdb: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- Exclusive = False
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 64
- Top = 128
- end
- end
-